<%

response.addHeader "Pragma", "no-cache"
response.addHeader "Cache-Session", "must-revalidate"
response.addHeader "Cache-Session", "no-cache"
response.addHeader "Cache-Session", "no-store"
Response.AddHeader "Expires", 0


set con = Server.CreateObject ("ADODB.connection")
Con.Open Application("ConDB_OVCC")

sql = request("query")
set rs = con.Execute(sql)

risultato = ""


do until rs.eof

for i = 0 to rs.Fields.Count - 1

	Response.Write rs(i) 
	if (i < rs.Fields.Count - 1) then Response.Write " - "

next

Response.Write VbCrLf

rs.movenext
loop
%>

                    


